home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 16 / CU Amiga Magazine's Super CD-ROM 16 (1997-10-16)(EMAP Images)(GB)[!][issue 1997-11].iso / CUCD / Graphics / Ghostscript / source / oper.h < prev    next >
C/C++ Source or Header  |  1995-01-24  |  4KB  |  96 lines
  1. /* Copyright (C) 1989, 1995 Aladdin Enterprises.  All rights reserved.
  2.   
  3.   This file is part of Aladdin Ghostscript.
  4.   
  5.   Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6.   or distributor accepts any responsibility for the consequences of using it,
  7.   or for whether it serves any particular purpose or works at all, unless he
  8.   or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9.   License (the "License") for full details.
  10.   
  11.   Every copy of Aladdin Ghostscript must include a copy of the License,
  12.   normally in a plain ASCII text file named PUBLIC.  The License grants you
  13.   the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14.   under certain conditions described in the License.  Among other things, the
  15.   License requires that the copyright notice and this notice be preserved on
  16.   all copies.
  17. */
  18.  
  19. /* oper.h */
  20. /* Definitions for Ghostscript operators */
  21. #include "ostack.h"
  22. #include "opdef.h"
  23. #include "opextern.h"
  24. #include "opcheck.h"
  25. #include "iutil.h"
  26.  
  27. /*
  28.  * In order to combine typecheck and stackunderflow error checking
  29.  * into a single test, we guard the bottom of the o-stack with
  30.  * additional entries of type t__invalid.  However, if a type check fails,
  31.  * we must make an additional check to determine which error
  32.  * should be reported.  In order not to have to make this check in-line
  33.  * in every type check in every operator, we define a procedure that takes
  34.  * an o-stack pointer and returns e_stackunderflow if it points to
  35.  * a guard entry, e_typecheck otherwise.
  36.  *
  37.  * Note that we only need to do this for typecheck, not for any other
  38.  * kind of error such as invalidaccess, since any operator that can
  39.  * generate the latter will do a check_type or a check_op first.
  40.  * (See ostack.h for more information.)
  41.  *
  42.  * We define the operand type of check_type_failed as const ref * rather than
  43.  * const_os_ptr simply because there are a number of routines that might
  44.  * be used either with a stack operand or with a general operand, and
  45.  * the check for t__invalid is harmless when applied to off-stack refs.
  46.  */
  47. int check_type_failed(P1(const ref *));
  48.  
  49. /*
  50.  * Check the type of an object.  Operators almost always use check_type,
  51.  * which includes the stack underflow check described just above;
  52.  * check_type_only is for checking subsidiary objects obtained from
  53.  * places other than the stack.
  54.  */
  55. #define return_op_typecheck(op)\
  56.   return_error(check_type_failed(op))
  57. #define check_type(orf,typ)\
  58.   if ( !r_has_type(&orf,typ) ) return_op_typecheck(&orf)
  59. #define check_stype(orf,styp)\
  60.   if ( !r_has_stype(&orf,imemory,styp) ) return_op_typecheck(&orf)
  61. #define check_array(orf)\
  62.   check_array_else(orf, return_op_typecheck(&orf))
  63. #define check_type_access(orf,typ,acc1)\
  64.   if ( !r_has_type_attrs(&orf,typ,acc1) )\
  65.     return_error((!r_has_type(&orf,typ) ? check_type_failed(&orf) :\
  66.           e_invalidaccess))
  67. #define check_read_type(orf,typ)\
  68.   check_type_access(orf,typ,a_read)
  69. #define check_write_type(orf,typ)\
  70.   check_type_access(orf,typ,a_write)
  71.  
  72. /* Macro for as yet unimplemented operators. */
  73. /* The if ( 1 ) is to prevent the compiler from complaining about */
  74. /* unreachable code. */
  75. #define NYI(msg) if ( 1 ) return_error(e_undefined)
  76.  
  77. /*
  78.  * If an operator has popped or pushed something on the control stack,
  79.  * it must return o_pop_estack or o_push_estack respectively,
  80.  * rather than 0, to indicate success.
  81.  * It is OK to return o_pop_estack if nothing has been popped,
  82.  * but it is not OK to return o_push_estack if nothing has been pushed.
  83.  *
  84.  * If an operator has suspended the current context and wants the
  85.  * interpreter to call the scheduler, it must return o_reschedule.
  86.  * It may also have pushed or popped elements on the control stack.
  87.  * (This is only used when the Display PostScript option is included.)
  88.  *
  89.  * These values must be greater than 1, and far enough apart from zero and
  90.  * from each other not to tempt a compiler into implementing a 'switch'
  91.  * on them using indexing rather than testing.
  92.  */
  93. #define o_push_estack 5
  94. #define o_pop_estack 14
  95. #define o_reschedule 22
  96.